home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / share / 11 / setup.exe / %MAINDIR% / DEMOS / CIFTP / FTPEXP / main.bas < prev    next >
Encoding:
BASIC Source File  |  2000-09-07  |  1.1 KB  |  48 lines
  1. Attribute VB_Name = "MainModule"
  2. Option Explicit
  3.  
  4. '------------------------------------------------------
  5. '<Purpose> singular program entry point
  6. '------------------------------------------------------
  7. Public Sub Main()
  8.     
  9.     Status.MyCaption = "FTP Explorer Status"
  10.     Status.Show
  11.     Explorer.Show
  12.     
  13. End Sub
  14.  
  15. '------------------------------------------------------
  16. '<Purpose> singular program exit point
  17. '------------------------------------------------------
  18. Public Sub ExitProc()
  19.     CleanupForms
  20.     
  21.     'don't end if you're a server
  22.     If (App.StartMode = vbSModeStandalone) Then
  23.         End
  24.     End If
  25. End Sub
  26.  
  27. '------------------------------------------------------
  28. '<Purpose> destroy all form objects, important in
  29. ' OLE servers
  30. '------------------------------------------------------
  31. Private Sub CleanupForms()
  32.     Unload AboutBox
  33.     Unload Disconnect
  34.     Unload Explorer
  35.     Unload MapServers
  36.     Unload Server
  37.     Unload Status
  38.     
  39.     Set AboutBox = Nothing
  40.     Set Disconnect = Nothing
  41.     Set Explorer = Nothing
  42.     Set MapServers = Nothing
  43.     Set Server = Nothing
  44.     Set Status = Nothing
  45. End Sub
  46.  
  47.  
  48.